home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11a.d64 / programm nr. 3 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  531b  |  27 lines
  1. 100 REM   ***   PROGRAMM NR.3   ***
  2. 110 :
  3. 120 IFZ=0THENZ=1:LOAD"GRAFIK MODUL",8,1
  4. 130 CLS=938:PLOT=820
  5. 140 :
  6. 150 X0=160:Y0=100  :REM  MITTELPUNKT
  7. 160 XR=90 :YR=80   :REM  X & Y-RADIUS
  8. 170 W =.5          :REM  DREHWINKEL
  9. 180 :
  10. 190 POKE53265,59:POKE53272,24:PRINT"[147]"
  11. 200 SYS CLS
  12. 210 :
  13. 220 T=SIN(W*(null)/180):S=SQR(1-T*T):X=0:Y=1
  14. 230 FORA=0TO90STEPW
  15. 240 SYS PLOT,X0+X*XR,Y0+Y*YR
  16. 250 SYS PLOT,X0+X*XR,Y0-Y*YR
  17. 260 SYS PLOT,X0-X*XR,Y0+Y*YR
  18. 270 SYS PLOT,X0-X*XR,Y0-Y*YR
  19. 280 X1=S*X+T*Y:Y1=S*Y-T*X:Y=Y1:X=X1
  20. 290 NEXTA
  21. 300 :
  22. 310 POKE198,0:WAIT198,1:GETA$
  23. 320 :
  24. 330 POKE53265,27:POKE53272,21
  25. 340 END
  26. 350 :
  27.